IBM OEM Software Product Sampler CD For PC Manufacturers

home *** CD-ROM | disk | FTP | other *** search

/ IBM OEM Software Product … CD For PC Manufacturers / IBM OEM Software - Product Sampler CD for PC Manufacturers.iso / InternetIntranets / Notes / LOTUS027.DSK / DOCLIB4.NTF (.txt) < prev next >

Wrap

Lotus Notes Database | 1997-08-08 | 406KB | 3,418 lines

Document Library (R4) #1StdR4DocLib Document Library (R4 CN=Lotus Notes Template Development/O=Lotus Notes FOLDER_DIRECTORY_OBJECT My Favorite Documents *Nb:O K!Dp } i*`Lg i*`Lg $Modified 1S2S3S $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O 0SL1S3724 $TITLE CN=Catherine Duffy/O=Iris########################################################## Process Late Reviews Selects those documents which are in review and have due dates which have passed. Based upon the review style of the document, it then either moves it along to the next reviewer, marks it as complete, or simply notifies the current reviewer(s) that their review is overdue.1SfL3 CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ######################### CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############### CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## CN=Catherine Duffy/OU=NAHQ/O=LotusCN=Catherine Duffy/O=IrisLotus NotesCN=Catherine Duffy/O=IrisLotus NotesCN=Catherine Duffy/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus Notes5 ########################################################## CN=Ryan Jansen/O=Iris ########################################################## Review Status|Review Status Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S DocumentG $VersionOpt Original by ReviewStyle Review by LastEditor Subject Subject 6S9RS4E16RS9E22S25RS4E31RS9E32S33S2E37S40RS4E44R47S48S50RS5E52R53S54S56S57S58S59S63S65S66S CurrentReviewers FutureReviewers 5S6S8S10S Status$40$41SubjectFrom$26DueDateTime$Conflict$REF Statush Status L1S5S6S7S8S1% StatusDueDateTime Subject$26 DueDateTime$26Y CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############# ########################################################## '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub SendReminder(EmailType) Declare Sub MoveToNextReviewer '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim s As NotesSession Dim db As NotesDatabase Dim view As NotesView Dim documents As NotesDocumentCollection Dim note As NotesDocument Dim parent As NotesDocument Dim emaildoc As NotesDocument Dim dt As NotesDateTime Dim item As NotesItem Dim rtitem As NotesRichTextItem Dim CurrentReviewers As Variant Dim FutureReviewers As Variant Dim ReviewSeq As Variant Dim ReviewWindow As Variant Dim NewList() As Variant Dim ListMax As Integer Dim NextReviewer As Variant Dim OldDueDate As Variant '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Set s = New NotesSession Set db = s.CurrentDatabase Set dt = New NotesDateTime("") dt.SetNow Set documents = db.Search("@Today => @Date(DueDateTime) & Status = ""In Review""", Nothing, 0) If documents.Count = 0 Then Exit Sub For d = 1 To documents.Count Set note = documents.GetNthDocument(d) ReviewWindow = note.ReviewWindow Select Case ReviewWindow(0) Case "MoveOn" MoveToNextReviewer SendReminder("WindowExpired") If ReviewSeq = "Serial" Then If FutureReviewers(0) <> "None" Then SendReminder("NotifyNextReviewer") End If Case "Reminder" CurrentReviewers = note.CurrentReviewers SendReminder("Reminder") End Select If note.IsResponse Then note.RemoveItem("DueDateTime") note.Save True, True End If Next End Sub '++LotusScript Development Environment:2:2:SendReminder:1:8 Sub SendReminder(EmailType) If note.IsResponse Then Exit Sub Set maildoc = New NotesDocument(db) Set rtitem = New NotesRichTextItem(maildoc, "Body") maildoc.InheritedSubject = note.Subject maildoc.InheritedDbTitle = db.Title Select Case EmailType Case "Reminder" maildoc.SendTo = CurrentReviewers maildoc.Subject = "Overdue Document Review" maildoc.FlowStatus = "Please complete your review of this document. You will continue to receive these notifications until it is complete." Call rtitem.AppendDocLink(note, "DocLink to Overdue Document") maildoc.DueDateTime = OldDueDate Case "WindowExpired" maildoc.SendTo = CurrentReviewers maildoc.Subject = "Document Review Period has Expired" maildoc.FlowStatus = "The time limit for your review of this document has expired." Call rtitem.AppendDocLink(note, "DocLink to Overdue Document") maildoc.DueDateTime = OldDueDate Case "NotifyNextReviewer" maildoc.SendTo = note.CurrentReviewers maildoc.Subject = "Document Requires Review" maildoc.FlowStatus = "Please take the time to review this document before the date shown below." Call rtitem.AppendDocLink(note, "DocLink to Document requiring review") maildoc.DueDateTime = note.DueDateTime End Select maildoc.Form = "Bookmark" On Error Resume Next Call maildoc.Send (False) End Sub '++LotusScript Development Environment:2:2:MoveToNextReviewer:1:8 Sub MoveToNextReviewer ListMax = 0 Set dt = New NotesDateTime("") dt.SetNow ReviewStyle = note.ReviewStyle position = Instr(ReviewStyle(0), ".") ReviewSeq = Left(ReviewStyle(0), position - 1) Versioning = Mid(ReviewStyle(0), position + 1) OldDueDate = Datevalue(note.DueDateTime(0)) dt.LSLocalTime = OldDueDate ReviewerLogEntry = "Review period ended on " & Format(dt.LSLocalTime, "Short Date") & " without a completed review by " dt.SetNow Select Case ReviewSeq Case "Parallel" 'For Response Reviews, we maintain the status in the parent so remove these If note.IsResponse Then note.RemoveItem("PreviousReviewers") note.RemoveItem("CurrentReviewers") note.RemoveItem("FutureReviewers") Else 'If it is a parent, move CurrentReviewers to PreviousReviewers and set CurrentReviewers to "None" CurrentReviewers = note.CurrentReviewers LateReviewers = Evaluate("@Implode(CurrentReviewers; "", "")", note) Set item = note.GetFirstItem("ReviewerLog") item.AppendToTextList(ReviewerLogEntry & LateReviewers(0)) PreviousReviewers = note.PreviousReviewers If PreviousReviewers(0) = "None" Then note.PreviousReviewers = CurrentReviewers Else Set item = note.GetFirstItem("PreviousReviewers") item.AppendToTextList(CurrentReviewers) End If note.CurrentReviewers = "None" End If note.InProcess = "None" note.Status = "Review Complete" note.RemoveItem("DueDateTime") note.DocumentAuthors = note.From Case "Serial" CurrentReviewers = note.CurrentReviewers Set item = note.GetFirstItem("ReviewerLog") item.AppendToTextList(ReviewerLogEntry & CurrentReviewers(0)) PreviousReviewers = note.PreviousReviewers If PreviousReviewers(0) = "None" Then note.PreviousReviewers = CurrentReviewers(0) Else Set item = note.GetFirstItem("PreviousReviewers") item.AppendToTextList(CurrentReviewers(0)) End If FutureReviewers = note.FutureReviewers 'Put the first person in the future reviewers list in current reviewer and remove that person from future reviewers list note.CurrentReviewers = FutureReviewers(0) If Ubound(FutureReviewers) = 0 Then note.FutureReviewers = "None" Else ListMax = Ubound(FutureReviewers) - 1 Redim NewList (ListMax) x = 0 For y = 1 To ListMax NewList(x) = FutureReviewers(y) x = x + 1 Next note.FutureReviewers = NewList End If 'Calculate when the review is due, based upon ReviewTime If FutureReviewers(0) = "None" Then note.RemoveItem("DueDateTime") note.Status = "Review Complete" note.DocumentAuthors = note.From Else ReviewTime = note.ReviewTime dt.SetNow If Isnumeric(ReviewTime(0)) Then dt.AdjustDay(ReviewTime(0)) note.DueDateTime = dt.LSLocalTime Else note.RemoveItem("DueDateTime") End If Redim NewList(1) Originator = note.From NextReviewer = note.CurrentReviewers NewList(0) = Originator(0) NewList(1) = NextReviewer(0) note.DocumentAuthors = NewList End If End Select note.Save True, True End Sub CurrentReviewers O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ }/JB8!Ef $TITLE $AssistType $AssistLastRun $AssistDocCount $Comment $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex $Flags O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ sZ%!ZM} $Flags Times New Roman bullet Using Document Library @ @@ @` @ @@ @@@@@`@@ `@ `@@`@``@ This database allows you to capture and track information about documents. Functions of the Database: To add a document to this database Select Create, Document. You can enter document information in several ways: by typing it using the Notes editor, by scanning in hard copy, or by importing or attaching an electronic file. To respond to a document Highlight that document in a view, then select Create, Response. To respond to a response Highlight the response you wish to respond to, then select Create, Response to Response. To flag a document as Private: You can use the "Mark Private" and "Mark Public" actions in the template to control whether anyone other than yourself can read a specific document. For example, if you have not completed the writing of a particular document, you can click the "Mark Private" action and others will not be able to see the document. When you complete the document, you can click the "Mark Public" action to make it available for others to read. If a document is marked private after it has been submitted for review, the document author and the reviewers will be able to read the document. ACL Settings This application was designed with the intention that all users except the manager should have Author access. If they have editor access, the review cycle may not function correctly. Features Document Review Cycle: The author of a document has the option of setting up a document review cycle for that document. To do so simply click on the Setup Review Cycle action button and fill in the necessary information. Note: Do not use @Domain when entering approver names. Any domain added will be stripped off and may cause complications when attempting to route a request. Also, only enter Person-names as approvers. Group names are not supported. Clearing a Review Cycle: Document Library, SmartSuite 96 Library, and MS Office Library provides an action button to "Clear Review Cycle". This is accessible only by the document's originator. You can either use the action prior to submitting a document for review, or after submittal. Below are the guidelines: o Clearing a review cycle prior to submitting for review: Select this if you, as originator, wish to change the review cycle settings before your reviewers receive notification. o Clearing a review cycle after submittal: If reviewers have already begun or completed their document review, their work will be preserved. If reviewers were notified to review a document and they have not yet begun the review, they will receive a courtesy notice that they are no longer required to conduct a review. Document Library Review Styles: Serial Review: Documents are routed for review one at a time, in sequence to the reviewers chosen by the author. o All edits are made within the same document , but an unedited copy of the original document is also saved. Serial Review (keep all revisions): Documents are routed for review one at a time, in sequence to the reviewers chosen by the author. o Edits are made within a copy of the original, which also includes all comments from previous reviewers o All old versions become response documents (as well as a copy of the original) Document Reservations: Requests for document review are routed in parallel (that is, all at the same time). When one reviewer opens the document, a "file locking" occurs at the server which warns any other user who happens to edit the document that a review is in progress. o Review comments or edits are made into a copy of the original document o As with the others, a clean copy of the original is always kept Response Review: Same as Document Reservations (but with no file locking). o Review comments or edits are saved as response documents to the original document. o As with the others, a clean copy of the original is always kept Processing Late Reviews: If the Process Late Reviews agent is enabled, it selects those documents which are in review and have due dates which have passed. Based upon the review style of the document, it then either moves it along to the next reviewer, marks it as complete, or simply notifies the current reviewer(s) that their review is overdue. Unlock Document: Occasionally a document is accidentally left in a locked state. The Unlock Document action can be accessed by designers and managers from the Review Status view's Action menu to unlock the document. Document Archiving: This is a process by which certain documents are removed from the current database and stored in a different database. This keeps the document library up-to-date with only the latest topics. Most of the Archiving activities take place from the "Archiving" view. You must switch to this view in order to initiate archiving on a document library database. To set up archiving on any document library database, switch to the Archiving view and click the action called "Setup Archive". The Archive Profile appears. This document contains criteria that the user specifies for archiving topics in a document library (e.g., inactive after 'x' days, or expired after 'x' days). The archive database is automatically created when the Profile is saved. The archival database filename is also specified in the Archive Profile; the title of the archive will be the title of the Document Library database followed by "(Archived)". After the archive criteria have been specified in the Archive Profile, other agents run on the database to move the document(s). Mark/Unmark Document as Expired: Marks a topic as "expired". If the Archive Profile specifies that expired topics should be archived, the document(s) marked with this agent would fall into that criterion. If a document is already marked as expired, this agent tells the user what the expire date was, and will ask if the user wants to un-expire it. Periodic Archive: Reviews the Archive Profile and moves documents which meet the archive criteria into the archive database. This agent is run automatically on the server; the schedule is set by the database manager/designer. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 2>eX0 $Info $Body O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ACLDigest $SUBVIEWBy _Author|By Author Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S DocumentG Status StatusY Subject $VersionOpt Subject (Original document in review cycle) ReviewStyle ParallelG Subject (Reviewed by LastEditor" Subject (Reviewed by PreviousReviewers Archive Subject Subject (Response to OriginalSubject Subject (Response to " OriginalSubject 6S9RS4E12S13S14S15S20RS8E22RS4E27RS8E28S29S31RS4E35S38RS9E39S40S41S42S2E43S44S46RS4E47S48S49S50S56S57S60R64S67RS4E69R70S71S73RS5E74S75S76S79R80S81S82S83S84S85S $45$42$36$43$Conflict L1S2E1 $45$36 $36$43 CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes## $SUBVIEW($All)|($All) Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S DocumentG $VersionOpt Original by ReviewStyle Review by LastEditor Subject Subject 6S9RS4E16RS9E17S18S22S25RS4E31RS9E32S33S2E37S40RS4E44R47S48S50RS5E52R53S54S56S57S58S59S63S65S66S Categories$51$54$52Subject$25$53$Conflict$REF Categories$54$25 Subject $25$53 $53$25TYd CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################## My Favorite DocumentsMy Favorite Documents/L Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S DocumentG Status StatusY Subject $VersionOpt Subject (Original document in review cycle) ReviewStyle ParallelG Subject (Reviewed by LastEditor" Subject (Reviewed by PreviousReviewers Archive Subject Subject (Response to OriginalSubject Subject (Response to " OriginalSubject 6S9RS4E12S13S14S15S20RS8E22RS4E27RS8E28S29S31RS4E35S38RS9E39S40S41S42S2E43S44S46RS4E47S48S49S50S56S57S60R64S67RS4E69R70S71S73RS5E74S75S76S79R80S81S82S83S84S85S $29$30$27From$Conflict From$27FYpd Debbie BrancoCN=Lotus Notes Template Development/O=Lotus Notes ########################## ########################################################## ########################################################## ########################################################## $45, Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S $36Modified $43Title DocumentG Status StatusY Subject $VersionOpt Subject (Original document in review cycle) ReviewStyle ParallelG Subject (Reviewed by LastEditor" Subject (Reviewed by PreviousReviewers Archive Subject Subject (Response to OriginalSubject Subject (Response to " OriginalSubject 6S9RS4E12S13S14S15S20RS8E22RS4E27RS8E28S29S31RS4E35S38RS9E39S40S41S42S2E43S44S46RS4E47S48S49S50S56S57S60R64S67RS4E69R70S71S73RS5E74S75S76S79R80S81S82S83S84S85S& Categori_ze _Edit Document Send Docu_ment _Forward Navigator H EnvName NavigatorState" 1S2S EnvName EnvName Main Navigator EnvName 0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E New Document, Document 0S0E Response, Response 0S0E Response to Response8 Response to Response 0S0E _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 2_gj7. $TYPE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Status $40 Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S DocumentG $VersionOpt Original by ReviewStyle Review by LastEditor Subject Subject 6S9RS4E16RS9E22S25RS4E31RS9E32S33S2E37S40RS4E44R47S48S50RS5E52R53S54S56S57S58S59S63S65S66S SubjectTitleFromCreated By$26ReviewersX CurrentReviewers FutureReviewers 5S6S8S10SDueDateTimeDue& Categori_ze _Edit Document Send Docu_ment _Forward Navigator H EnvName NavigatorState" 1S2S EnvName EnvName Main Navigator EnvName 0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E New Document, Document 0S0E Response, Response 0S0E Response to Response8 Response to Response 0S0E _Move to Folder... _Remove from Folder... Unlock Document (Unlock Document) Server 1S2S6S 0R1S2S6S Server 0R7S8S11S13S14S15S16S O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categories$51 Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S DocumentG $VersionOpt Original by ReviewStyle Review by LastEditor Subject Subject 6S9RS4E16RS9E17S18S22S25RS4E31RS9E32S33S2E37S40RS4E44R47S48S50RS5E52R53S54S56S57S58S59S63S65S66S SubjectTitle$25Modified $53Author, Categori_zeo _Edit Document Send Docu_ment _Forward Navigator EnvName NavigatorState" 1S2S EnvName EnvName Main Navigator EnvName 0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E New Document, Document 0S0E Response, Response 0S0E Response to Response8 Response to Response 0S0E _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ @GZ3b $TYPE $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS My Favorite Documents Scope Private ExpireDate _ViewIcon 2S3S4S6S8S9S12S14S $30Title DocumentG Status StatusY Subject $VersionOpt Subject (Original document in review cycle) ReviewStyle ParallelG Subject (Reviewed by LastEditor" Subject (Reviewed by PreviousReviewers Archive Subject Subject (Response to OriginalSubject Subject (Response to " OriginalSubject 6S9RS4E12S13S14S15S20RS8E22RS4E27RS8E28S29S31RS4E35S38RS9E39S40S41S42S2E43S44S46RS4E47S48S49S50S56S57S60R64S67RS4E69R70S71S73RS5E74S75S76S79R80S81S82S83S84S85S$27Date FromAuthor& Categori_ze _Edit Document Send Docu_ment _Forward Navigator EnvName NavigatorState" 1S2S EnvName EnvName Main Navigator EnvName 0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E New Document, Document 0S0E Response, Response 0S0E Response to Response8 Response to Response 0S0E _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $Name $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Main NavigatorG3 Debbie BrancoCN=Lotus Notes Template Development/O=Lotus Notes#################################################### *Nb:O Response to ResponseResponse to Response CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################ ReviewOptionsReviewOptionsCD CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## DocumentWorkflowCUA3 CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################ ResponseResponse CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############ DocumentDocumentDocumentWorkflow CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes2280E14EA22FC3754865C81CA18819DC0C353B7A95045A67500F74639D1478D967843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes# CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## (Unlock Document)Use if a doc is accidentally left in a locked state. Can be accessed by designers and managers from the Review Status view.003 Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## 255D2116B7BDFECF1769F57E5917AA29Lotus Notes (Archive Log)Archive LogArchiveLogCD CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########### Mark/Unmark Document As Expired CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################### ########################################################## ########################################################## ($All) TextBox1All Documents TextBox2By Author TextBox3My Favorite Documents TextBox4By Review Status TitleDocuments: AllDocs ($All) ByAuthor By Author ByStatus Review Status MyFavDocs My Favorite Documents O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ViewMapDataset $ViewMapLayout NewDocTitle New Response to " Subject 1S2S3S4S5S6S StandardTitle Response to " ImmediateParentSubject" 0R1S2S3S4S5S6S NewDocTitle StandardTitle 0R4S6S "MS Sans Serif Times New Roman Response to Response @___@ <a>7`^ `!bb!R SubjectKey thought of this response Created by: FromThe name of the person who composed the response DateThe date/time when the document was composed TimeCreated ExpireDate 1S2S The document and its responses will be archived on a schedule determined by the Archive Profile This document was marked expired on ExpireDate ExpireDateDisplay @___@ <a>7`^ `!bb!R BodyEnter the text of your response ------------------------------------------------------------------------------------------------------------------------------------------------- Hidden Fields: OriginalSubject OriginalSubject Subject 7S9S OriginalSubjectHidden field to store topic of Main Document Subject Subject OriginalSubject 7S9S ImmediateParentSubject Closeu 0S0E _Edit Document Categori_ze Send Docu_ment _Forward _Move to Folder... _Remove from Folder O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $WindowTitle $$Script_O $$ScriptName TimeCreated $Body $ACTIONS nV$DesignVersion$Version$Formula$FormulaClass$Collation$UpdatedBy$TITLE$AssistType$AssistLastRun$AssistDocCount$Comment$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$Flags$AssistRunInfo$AssistVersion$Signature$Info$Fonts$Body$ACLDigest$FlagsNoRefreshIconBitmap$TYPE$Index$Collation1$Collation2$VIEWFORMAT$ACTIONS$Collation3$Collation4$Name$FolderObject$FolderIDTable$ViewMapDataset$ViewMapLayout$WindowTitle$$Script_O$$ScriptNameSubjectFromDateTimeCreatedBodyOriginalSubjectImmediateParentSubjectReviewTime_1ReviewStyleReviewWindowNotifyAfterReviewTimeSaveChoices$Script$$FormScript$$$FormScript_ODocumentAuthorsDocumentReadersLastEditor$SubForms$$Reviewers$Reviewers_OCategoriesPreviousReviewersCURRENTREVIEWERSFutureReviewersReviewersReviewerLog$$XMB$$XMB_2$$XMB_3$Licensee$Operation$Scan$LeftToDoDocLife$ManualArchivers_OObsoleteLifeDocumentLife$MessageTypeLogCountLogTotalArchiveDateArchiveTrailerArchiveExpiredExpiredLifeArchiveInactiveArchiveLogIncludeDoclinksProfileEditors$SCRIPTOBJ_6DeleteOptionsArchiveLocationArchiveServerArchivePathCopyOptions$SCRIPTOBJ_10$ViewGlobalScript_O Times New Roman ReviewOptions Review style: ReviewStyle ReviewStyle Serial review | Serial.NoVersionsSerial (keep all revisions) | Serial.VersionsDocument reservations | Parallel.NoVersionsResponse review | Parallel.Versions ReviewWindow ReviewWindow No time limit on review | NoLimitMove to next reviewer after | MoveOnKeep sending reminders after | Reminder Allotted time: Notification: NofityAfter NotifyAfter Notify me after each reviewer | EachNotify me after final reviewer | Final ReviewWindow NoLimit 1S2S ReviewTime ReviewWindow NoLimit ReviewTime ReviewTime 3S4S6S8S14S ReviewWindow NoLimit ReviewTimeX Please enter a number.{ ReviewTimeX Please enter a whole number which is greater than zero. 3S4S6S8S16S21S25S26S28S33S ReviewTime day(s) SaveChoices SaveChoices Save choices for next time. | 1 Categori_ze _Edit Document Send Docu_ment _Forward _Move to Folder... _Remove from Folder$ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ ReviewTime_1 $TITLE $Info $$ScriptName $Body $ACTIONS '++LotusScript Development Environment:2:5:(Options):0:74 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub InitializeDocument(source) Declare Sub InitializeStatusList Declare Sub RebuildList(InputList As Variant) Declare Sub SetReviewerLists Declare Sub SendNotification Declare Sub InitiateReview(source) Declare Sub GetReviewSequence Declare Sub ResetAuthorNames '++LotusScript Development Environment:2:5:(Declarations):0:10 '***** OBJECT VARIABLES ***** Dim s As NotesSession Dim w As NotesUIWorkspace Dim doc As NotesUIDocument Dim db As NotesDatabase Dim note As NotesDocument Dim tempnote As NotesDocument Dim maildoc As NotesDocument Dim parent As NotesDocument Dim child As NotesDocument Dim children As NotesDocumentCollection Dim item As NotesItem Dim rtitem As NotesRichTextItem Dim dt As NotesDateTime '***** DATA VARIABLES - FIELDS DEFINED ON FORM***** Dim ReviewStyle As Variant Dim ReviewSeq As Variant Dim Reviewers As Variant Dim PreviousReviewers As Variant Dim FutureReviewers As Variant Dim CurrentReviewers As Variant Dim DocumentAuthors As Variant Dim Originator As Variant Dim Versioning As Variant '***** DATA VARIABLE - FIELDS DEFINED IN SCRIPT, NOT DEFINED ON FORM Dim Status As Variant Dim Locked As Variant Dim InProcess As Variant '***** SCRIPT PROCESSING VARIABLES ***** Dim ReviewerList() As Variant Dim OldList() As Variant Dim InputList As Variant Dim NewList() As Variant Dim ListMax As Integer Dim tmpList As Variant Dim CompareValue As Variant Dim Elements As Integer Dim DocWasSaved As Integer Dim ParentIsLocked As Integer Dim DocIsLocked As Integer Dim LockedBy As Variant Dim InitiatingReview As Integer Dim CompareValueFound As Integer Dim FinalSave As Variant '***** TEMP PROCESSING FIELDS - ADDED TO DOC ON OPEN, DELETED ON CLOSE***** Dim CurrentUser As String Dim Action As Variant Dim StatusList(1 To 4) As Variant '++LotusScript Development Environment:2:2:InitializeDocument:1:8 Sub InitializeDocument(source) 'This routine initializes object variables, global variables and some field values 'Turn off Autoreload to speed up response time (this means we need to do manual reloads and refreshes) source.AutoReload = False Set w = New NotesUIWorkspace Set s = New NotesSession Set db = s.CurrentDatabase Set note = source.Document CurrentUser = s.CommonUserName note.tmpCurrentUser = CurrentUser Originator = note.From InitializeStatusList If source.IsNewDoc Then note.Status = StatusList(1) note.Scope = "Public" Else If note.Locked(0) <> "" Then DocIsLocked = True LockedBy = note.Locked End If End If 'Initialize V3 documents If Not(note.HasItem("Status")) Then note.Status = StatusList(1) note.Scope = "Public" note.DocumentAuthors = s.CommonUserName note.From = Evaluate("@Name([CN]; From)", note) End If 'Clear the status bar Print End Sub '++LotusScript Development Environment:2:2:InitializeStatusList:1:8 Sub InitializeStatusList 'Statuses are referred to positionally. If you want the works to display differently in the view (like if you want the first 'status to be None instead of New) you would change them here. StatusList(1) = "New" StatusList(2) = "Ready for Review" StatusList(3) = "In Review" StatusList(4) = "Review Complete" note.StatusList = StatusList End Sub '++LotusScript Development Environment:2:2:RebuildList:1:8 Sub RebuildList(InputList As Variant) 'This routine removes a value from a list (passed by reference) ListMax = Ubound(InputList) 'Save original capitalization in OldList then lowercase both InputList and CompareValue Redim OldList (ListMax) For i = 0 To ListMax OldList(i) = InputList(i) InputList(i) = Lcase(InputList(i)) Next CompareValue = Lcase(CompareValue) Redim NewList (ListMax) x = 0 For y = 0 To ListMax If InputList(y) <> CompareValue Then NewList(x) = OldList(y) x = x + 1 End If Next If x > 0 Then Redim Preserve NewList(x-1) tmpList = NewList Else tmpList = "None" End If If x = ListMax Then CompareValueFound = True Else CompareValueFound = False End If End Sub '++LotusScript Development Environment:2:2:SetReviewerLists:1:8 Sub SetReviewerLists Print "Updating Reviewer Lists" For a Parallel submit, set CurrentReviewers to the Reviewers field (there are no FutureReviewers - all reviewers are current) and set FutureReviewers to "None". For a Parallel review, remove CurrentUser from CurrentReviewers and add it to PreviousReviewers. For a Serial submit, set CurrentReviewers to the first Reviewer and set FutureReviewers to the Reviewers field minus the first Reviewer For a Serial review remove CurrentUser from FutureReviewers and add it to PreviousReviewers. %ENDREM ListMax = 0 Set dt = New NotesDateTime("") dt.SetNow If Action(0) = "Complete" Then ReviewerLogEntry = CurrentUser & " on " & Format(dt.LSLocalTime, "Short Date") Select Case ReviewSeq Case "Parallel" 'On submit Set future reviewers to None since all reviewers are current If Action(0) = "Submit" Then Reviewers = note.Reviewers tmpList = Reviewers note.FutureReviewers = "None" Else '(this is for action = Complete) 'For Response Reviews, we maintain the status in the parent If note.IsResponse Then CurrentReviewers = parent.CurrentReviewers Set item = parent.GetFirstItem("ReviewerLog") Else CurrentReviewers = note.CurrentReviewers Set item = note.GetFirstItem("ReviewerLog") End If item.AppendToTextList(ReviewerLogEntry) CompareValue = CurrentUser 'Remove the CurrentUser from the CurrentReviewers list Call RebuildList(CurrentReviewers) End If FieldName = "CurrentReviewers" Case "Serial" 'On submit, put all reviewers in the future reviewers list If Action(0) = "Submit" Then Reviewers = note.Reviewers tmpList = Reviewers Call note.ReplaceItemValue("FutureReviewers", tmpList) Else Set item = note.GetFirstItem("ReviewerLog") item.AppendToTextList(ReviewerLogEntry) End If FutureReviewers = note.FutureReviewers 'Put the first person in the future reviewers list in current reviewer 'On submit this makes the first one current, on Complet it makes the next one current note.CurrentReviewers = FutureReviewers(0) CompareValue = FutureReviewers(0) FieldName = "FutureReviewers" 'Remove the first element from the FutureReviewers list Call RebuildList(FutureReviewers) End Select 'Calculate when the review is due, based upon ReviewTime ReviewTime = note.ReviewTime temp = ReviewTime(0) Set dt = New NotesDateTime("") dt.SetNow If Isnumeric(ReviewTime(0)) Then dt.AdjustDay(temp) 'Update DueDate - If there is a Review time then reset, otherwise delete 'Update PreviousReviewers to None if this is a submit, otherwise add CurrentUser to existing list If note.IsResponse And ReviewSeq = "Parallel" Then If Isnumeric(ReviewTime(0)) Then parent.DueDateTime = dt.LSLocalTime Else parent.RemoveItem("DueDateTime") End If Call parent.ReplaceItemValue(FieldName, tmpList) PreviousReviewers = parent.PreviousReviewers If PreviousReviewers(0) = "None" Then parent.PreviousReviewers = CurrentUser Else Set item = parent.GetFirstItem("PreviousReviewers") item.AppendToTextList (CurrentUser) End If 'In a response review, we remove these because they are stored in the main doc note.RemoveItem("PreviousReviewers") note.RemoveItem("CurrentReviewers") note.RemoveItem("FutureReviewers") If Action(0) = "Complete" Then note.RemoveItem("DueDateTime") note.Status = StatusList(4) End If Else If Isnumeric(ReviewTime(0)) Then note.DueDateTime = dt.LSLocalTime Else note.RemoveItem("DueDateTime") End If Call note.ReplaceItemValue(FieldName, tmpList) If Action(0) = "Submit" Then note.PreviousReviewers = "None" Else PreviousReviewers = note.PreviousReviewers If PreviousReviewers(0) = "None" Then note.PreviousReviewers = CurrentUser Else Set item = note.GetFirstItem("PreviousReviewers") item.AppendToTextList (CurrentUser) End If End If End If End Sub '++LotusScript Development Environment:2:2:SendNotification:1:8 Sub SendNotification 'This routine sets the content of the notification email, based upon values set in SetReviewerLists. If note.IsResponse Then CurrentReviewers = parent.CurrentReviewers Else CurrentReviewers = note.CurrentReviewers End If DbTitle = db.Title DueDateTime = note.DueDateTime Subject = note.Subject Recipient = Empty NotifyAfter = note.NotifyAfter 'If it is a parallel review with only final notification to the originator, 'there is not need to send mail on a normal completion If (ReviewSeq = "Parallel") And (CurrentReviewers(0) <> "None") _ And (NotifyAfter(0) = "Final") And (Action(0) <> "Submit") Then Exit Sub Else Print "Sending Notification" End If Set maildoc = New NotesDocument(db) Set rtitem = New NotesRichTextItem(maildoc, "Body") Select Case Action(0) Case "Submit" tmpList = CurrentReviewers tmpSubject = "Document Requires Review: " & Subject(0) If note.HasItem("DueDateTime") Then tmpFlowStatus = "Please take the time to review this document before the due date shown below." Else tmpFlowStatus = "Please take the time to review this document." End If tmpMessagebox = "Request for review has been sent to " If ReviewSeq = "Parallel" Then tmpRecipient = "All Reviewers" Else tmpRecipient = CurrentReviewers(0) End If Case "Complete" If CurrentReviewers(0) = "None" Then tmpList = Originator(0) tmpSubject = "Review is complete for: " & Subject(0) tmpFlowStatus = "All reviewers have completed their work on this document." tmpMessagebox = "Notification that you have completed your review has been sent to the originator: " Else Select Case ReviewSeq Case "Parallel" tmpList = Originator(0) tmpFlowStatus = CurrentUser & " is finished reviewing this document." tmpSubject = CurrentUser & " has completed review of: " & Subject(0) tmpMessagebox = "Notification that you have completed your review has been sent to the originator, " Case "Serial" tmpList = CurrentReviewers(0) tmpSubject = "Document Requires Review: " & Subject(0) If note.HasItem("DueDateTime") Then tmpFlowStatus = Originator(0) & " requests that you review this document before the due date shown below." Else tmpFlowStatus = Originator(0) & " requests that you review this document." End If tmpMessagebox = "Notification that you have completed your review has been sent to " If NotifyAfter(0) = "Each" Then maildoc.CopyTo = Originator(0) tmpRecipient = tmpList & " and " & Originator(0) End If End Select End If If tmpRecipient = "" Then tmpRecipient = tmpList End Select Call maildoc.AppendItemValue("SendTo", tmpList) maildoc.Subject = tmpSubject maildoc.InheritedSubject = Subject(0) maildoc.InheritedDbTitle = DbTitle maildoc.FlowStatus = tmpFlowStatus If note.HasItem("DueDateTime") Then maildoc.DueDateTime = Format(DueDateTime(0), "Short Date") If note.IsResponse Then Call rtitem.AppendDocLink(parent, "DocLink to " & Subject(0)) Else Call rtitem.AppendDocLink(note, "DocLink to " & Subject(0)) End If maildoc.Form = "Bookmark" On Error Goto SendError Call maildoc.Send (False) Messagebox tmpMessagebox & tmpRecipient & ".", 0 + 64, "Document Library" Exit Sub SendError: Messagebox "FYI: " & tmpRecipient & " could not be notified via email at this time.", 0 + 64, "Document Library" Exit Sub End Sub '++LotusScript Development Environment:2:2:InitiateReview:1:8 Sub InitiateReview(source) 'This routine does the versioning that occurs when a review in initiated (as opposed to on every save) InProcess = note.InProcess Reviewers = note.Reviewers PreviousReviewers = note.PreviousReviewers 'Check to see if CurrentUser is in the InProcess list. If they are (or if this is the originator) then do not do versioning Redim ReviewerList(0) Forall n In InProcess If CurrentUser = n Then ReviewerList(0) = CurrentUser End Forall 'Find out what kind of review we are processing GetReviewSequence If ReviewerList(0) = CurrentUser Or CurrentUser = Originator(0) Then Exit Sub Print "Initiating Review" 'Set the $VersionOpt appropriately If (Versioning = "Versions") Then If ReviewSeq = "Parallel" Then 'This doc becomes a response (we are subsequently editting the response doc) VersionOpt = "1" Else 'Previous versions become response (we are still editing the main doc) VersionOpt = "3" End If Else 'The original doc is saved as a response (for safe keeping) If PreviousReviewers(0) = "None" And Not(note.HasItem("$VersionOpt")) Then VersionOpt = "3" End If 'Reset the field If (Versioning = "Versions") Or (PreviousReviewers(0) = "None") Then Call note.ReplaceItemValue("$VersionOpt", VersionOpt) 'CurrentUser is now on the InProcess list because they are actively reviewing the doc Set item = note.GetFirstItem("InProcess") If item Is Nothing Then Call note.AppendItemValue("InProcess", CurrentUser) Else item.AppendToTextList(CurrentUser) End If 'InitiatingReview flag tells the Querysave event how to process, reload from the backend, 'and save from the front end to create the appropriate version InitiatingReview = True source.Reload If VersionOpt = 1 Or VersionOpt = 3 Then source.Refresh source.SaveNewVersion End If source.RefreshHideFormulas InitiatingReview = False Print End Sub '++LotusScript Development Environment:2:2:GetReviewSequence:1:8 Sub GetReviewSequence 'ReviewSequence is stored in a manner that makes sense to users. Here it is dealt with as serial or parallel, 'with or without versioning. ReviewStyle = note.ReviewStyle position = Instr(ReviewStyle(0), ".") ReviewSeq = Left(ReviewStyle(0), position - 1) Versioning = Mid(ReviewStyle(0), position + 1) End Sub '++LotusScript Development Environment:2:2:ResetAuthorNames:1:8 Sub ResetAuthorNames Select Case ReviewSeq Case "Serial" 'Reset author names to CurrentReviewers + Originator (unless CurrentReviewers = "None") If CurrentReviewers(0) = "None" Then note.DocumentAuthors = Originator(0) Else CompareValue = Empty Call RebuildList(CurrentReviewers) Redim Preserve NewList(ListMax+1) NewList(ListMax+1) = Originator(0) tmpList = NewList note.DocumentAuthors = tmpList End If 'If there are versions, remove it from them as well If note.HasItem("$VersionOpt") Then Set children = note.Responses For c = 1 To children.Count Set child = children.GetNthDocument(c) child.DocumentAuthors = Originator(0) If child.DocumentReaders(0) = "" Then child.RemoveItem("DocumentReaders") 'It does not matter if it can not be saved because CurrentUser may not be in the AuthorNames field in all responses On Error Resume Next child.Save True, True Err = 0 Next End If Case "Parallel" If note.IsResponse Then 'If all done we are updating the parent and the originator is the only editor 'otherwise CurrentUser and originator are the editors of this doc If Action(0) = "Complete" Then note.DocumentAuthors = Originator(0) parentid = note.ParentDocumentUNID Set parent = db.GetDocumentByUNID(parentid) DocumentAuthors = parent.DocumentAuthors CompareValue = CurrentUser Call RebuildList(DocumentAuthors) parent.DocumentAuthors = tmpList If parent.DocumentReaders(0) = "" Then parent.RemoveItem("DocumentReaders") parent.Save True, True Else Redim NewList(1) NewList(0) = CurrentUser NewList(1) = Originator(0) tmpList = NewList note.DocumentAuthors = tmpList End If Else 'If we are not versioning - then all current reviewers and the originator are editors (unless CurrentReviewer = "None") If CurrentReviewers(0) = "None" Then note.DocumentAuthors = Originator(0) Else CompareValue = Empty Call RebuildList(CurrentReviewers) Redim Preserve NewList(ListMax+1) NewList(ListMax+1) = Originator(0) tmpList = NewList note.DocumentAuthors = tmpList End If 'If there are versions, remove it from them as well If note.HasItem("$VersionOpt") Then Set children = note.Responses For c = 1 To children.Count Set child = children.GetNthDocument(c) child.DocumentAuthors = Originator(0) If child.DocumentReaders(0) = "" Then child.RemoveItem("DocumentReaders") child.RemoveItem("Locked") 'It does not matter if it can not be saved because CurrentUser may not be in the AuthorNames field in all responses On Error Resume Next child.Save True, True Err = 0 Next End If End If End Select End Sub K$ Qh K$ Qh DocumentWorkflow'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) Declare Sub Postopen(Source As Notesuidocument) Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Declare Sub Postmodechange(Source As Notesuidocument) Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Queryopen From Source Call Queryopen On Event Postopen From Source Call Postopen On Event Querymodechange From Source Call Querymodechange On Event Postmodechange From Source Call Postmodechange On Event Querysave From Source Call Querysave On Event Queryclose From Source Call Queryclose End Sub '++LotusScript Development Environment:2:2:Queryopen:1:12 Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) 'If it is a new doc, there is no note yet, so we cannot initialize it from here If IsNewDoc Then Exit Sub Call InitializeDocument(source) If Mode = 1 Then If DocIsLocked Then Messagebox "This document is being edited by " & LockedBy(0) & ". Please try later.",_ 0 + 48, "Document Library" Continue = False Else 'If this is a Document Reservations review, then lock this doc If note.ReviewStyle(0) = "Parallel.NoVersions" Then note.Locked = CurrentUser note.DocumentAuthors = CurrentUser If note.DocumentReaders(0) = "" Then note.RemoveItem("DocumentReaders") On Error Goto SaveError note.save True, True End If End If End If Exit Sub SaveError: Messagebox "This document is currently in use. Please try later.",_ 0 + 48, "Document Library" Continue = False Exit Sub End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) 'This allows us to reference the UI Document in areas where source represents a different object Set doc = source 'If it is a new doc, we initialize it here. Existing docs are initialized in Queryopen because it is faster (one less refresh is required) If source.IsNewDoc Then Call InitializeDocument(source) source.Reload source.RefreshHideFormulas Else 'If the doc was opened in edit mode, it may be a review initiation (this routine is also executed on mode change) If source.EditMode = True Then Status = note.Status If Status(0) = StatusList(3) Then Call InitiateReview(source) End If End If End Sub '++LotusScript Development Environment:2:2:Querymodechange:1:12 Sub Querymodechange(Source As Notesuidocument, Continue As Variant) 'If the doc is locked, do not allow them to put in in edit mode If source.EditMode = False And note.ReviewStyle(0) = "Parallel.NoVersions" Then If Not DocIsLocked Then SavedUNID = note.UniversalId Delete note Set tempnote = db.GetDocumentByUNID(SavedUNID) If tempnote.HasItem("Locked") Then DocIsLocked = True LockedBy = tempnote.Locked End If Delete tempnote Set note = source.Document End If If DocIsLocked Then Messagebox "This document is being edited by " & LockedBy(0) & ". Please try later.",_ 0 + 48, "Document Library" Continue = False Else note.Locked = CurrentUser note.DocumentAuthors = CurrentUser If note.DocumentReaders(0) = "" Then note.RemoveItem("DocumentReaders") On Error Goto SaveError note.save True, True End If End If Exit Sub SaveError: Messagebox "This document is currently in use. Please try later.",_ 0 + 48, "Document Library" Continue = False Exit Sub End Sub '++LotusScript Development Environment:2:2:Postmodechange:1:12 Sub Postmodechange(Source As Notesuidocument) 'Putting the doc in edit mode might be a review initiation (this routine is also executed if the doc is opend in edit mode) If Source.EditMode = True Then Status = note.Status If Status(0) = StatusList(3) Then Call InitiateReview(source) End If End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) If FinalSave Then Exit Sub On Error Resume Next 'All routing logic is driven from here. The Action buttons set the tmpAction value which drives processing. Status = note.Status 'If Subject is blank, be sure they enter it here Subject = note.Subject If Subject(0) = "" Then Subject(0) = Inputbox("Please enter a Title for this document.", "Document Library", "(Untitled)") If Subject(0) = "" Then Continue = False Exit Sub End If End If note.Subject = Subject(0) 'Be sure that versions do not get $Ref stripped off If note.IsResponse Then Call note.ReplaceItemValue("$RefOptions", "1") 'InitiatingReview means that they are saving in order to generate a new version 'Status 1 means there is no review cycle. In both cases we don't need to execute the rest of the logic here. If InitiatingReview Or Status(0) = StatusList(1) Then source.Reload Exit Sub Else Print "Saving Document" End If 'Find out which kind of a review we are doing GetReviewSequence 'Get the Action type and the Reviewer list Action = note.tmpAction Reviewers = note.Reviewers 'Decide how to process based on which Action button was pressed Select Case Action(0) 'On Submit - build the current and future reviewer lists and send notification to the appropriate person(s) Case "Submit" note.Status = StatusList(3) SetReviewerLists SendNotification 'On Completion of a review - if it is a response, lock the parent because we are going to update it Case "Complete" If note.IsResponse Then parentid = note.ParentDocumentUNID Set parent = db.GetDocumentByUNID(parentid) parent.Locked = CurrentUser ParentIsLocked = True parent.save True, True End If 'Rebuild the previous, current, and future reviewer lists and send notificationto the appropriate person(s) SetReviewerLists SendNotification 'Get the name of the person(s) currently reviewing this document (actively reviewing it means they have started 'reviewing it, rather than just being on the CurrentReviewer list) InProcess = note.InProcess CompareValue = CurrentUser 'Pull CurrentUser out of the InProcess list Call RebuildList(InProcess) Call note.ReplaceItemValue("InProcess", tmpList) CurrentReviewers = note.CurrentReviewers 'If CurrentReviewers = None (already set in the SetReviewerLists routine) then all reviews are complete so reset status If CurrentReviewers(0) = "None" Then note.Status = StatusList(4) 'If the parent is locked then unlock it If ParentIsLocked Then CurrentReviewers = parent.CurrentReviewers If CurrentReviewers(0) = "None" Then parent.Status = StatusList(4) parent.RemoveItem("DueDate") End If parent.RemoveItem("Locked") ParentIsLocked = False parent.Save True, True End If End Select 'Reset $VersionOpt to 0 to prevent further versioning If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0") 'Set the DocWasSaved flag so the Queryclose event knows about it DocWasSaved = True source.Reload Print End Sub '++LotusScript Development Environment:2:2:Queryclose:1:12 Sub Queryclose(Source As Notesuidocument, Continue As Variant) On Error Goto ErrorRoutine 'If the doc wasn't saved, we do not need to execute the rest of the logic in this event If DocWasSaved Or note.Locked(0) <> "" Then Print "Closing Document" Else Exit Sub End If Action = note.tmpAction 'A backend save (note.save) saves every field that it knows about, which is every field on the form. It does not 'distinguish between ComputedForDisplay and data fields (the backend classes have no such UI constraints). 'Consequently, we delete all ComputedForDisplay and other temporary fields itemlist = note.Items Forall n In itemlist If Lcase(Left(n.Name, 3)) = "tmp" Then n.Remove End Forall Scope = note.Scope CurrentReviewers = note.CurrentReviewers Status = note.Status 'We reset the author names here because the UI save has already occurred (so we can). 'The new authornames will take effect the next time the doc is accessed. If Scope(0) = "Public" Then note.RemoveItem("DocumentReaders") If Status(0) = StatusList(1) Or Status(0) = StatusList(2) Then note.DocumentAuthors = Originator(0) Else ResetAuthorNames End If If note.HasItem("SaveOptions") Then note.RemoveItem("SaveOptions") If note.Locked(0) = CurrentUser Then note.RemoveItem("Locked") Else If DocIsLocked Then Exit Sub End If FinalSave = True source.Reload source.Refresh source.Save w.ViewRefresh Print ErrorRoutine: Exit Sub End Sub , , , ` ` p [, I$ -< #8$ DocumentWorkflow Subform : This Subform includes the LotusScript, Actions, and hidden fields which are used in all versions of the Document form. Hidden Fields:------------------------------------------------------------------- DocumentAuthors 4S6S DocumentAuthors Scope Private Reviewers 3S4S6S7S8S10SDocumentReaders LastEditor Mark PrivateF Scope Private 1S2S3S Scope Private 1S2S Mark Public&D Scope Public 1S2S3S Scope Public Scope 1S2S3S4S Submit for Reviewe Reviewers Reviewers 1S2S3S Reviewers Document Library Please indicate who should review this document. 0RR6S7S9S15S17S21S Reviewers Froma Document Library The Originator cannot be on the reviewer list. 0RR9S15S21S23S27S tmpAction Submit 0RR1S2S3S SaveOptions 0R1S2S3S GoToField causes any active embedded objects to de-activate 0R1S 0R4S 0R7S12S> Status StatusListv 5S7S8S Setup Review Cycle GetReviewCycle Status StatusList ReviewCycle ReviewStyle ReviewWindow ReviewTime NotifyAfter SaveChoices 1S2S5S6S10S13S18S21S22S23S24S25S26S27S28S30S ReviewCycle GetReviewCycle GetReviewCycle 0RR1S2S5S6S8S10S14S ReviewStyle ReviewCycle Serial.NoVersions ReviewCycle 0RR1S2S3S9S10S12S14S18S ReviewWindow ReviewCycle NoLimit ReviewCycle 0R1S2S3S9S10S12S14S20S23S ReviewTime ReviewCycle ReviewCycle 0R1S2S3S9S10S12S14S20S23S NotifyAfter ReviewCycle Final ReviewCycle 0R1S2S3S9S10S12S14S20S23S SaveChoices ReviewCycle ReviewCycle 0R1S2S3S9S10S12S14S18S ReviewOptions Review Cycle 0RR10S12S13S15S20S Status StatusList 0RR1S2S3S9S12S ReviewCycle SaveChoices ReviewStyle ReviewWindow ReviewTime NotifyAfter SaveChoices 0R1S2S3S6S7S9S11S14S15S16S17S18S19S20S21S23S ReviewTime ReviewWindow NoLimit ReviewTimeX 0RR1S2S3S6S7S9S11S tmpReviewUnits ReviewWindow NoLimit day(s) 0R1S2S3S6S7S9S11S these are posted commands so that they do not execute until after the section is fully expanded (because the field it is going to is inside the section) 0RR1S Reviewers 0R4S tmpCurrentUser Status StatusListv 1S2S6S8S9S13S15S16S Clear Review Cycle InReview Status StatusListv 1S2S8S10S11S13S15S ReviewerList InReview CurrentReviewers 0R1S2S6S8S Status StatusList 0RR1S2S3S7S ReviewSequence All Reviewers simultaneously 0R1S2S3S Versioning Edit Original Document 0R1S2S3S NotifyAfter Notify Originator after each Reviewer 0R1S2S3S Reviewers 0R1S2S3S PreviousReviewers 0R1S2S3S CurrentReviewers 0R1S2S3S FutureReviewers 0R1S2S3S $VersionOpt 0R1S2S3S InReview ReviewerList Review of document: Subject I no longer require you to review this document. Thank you for your efforts. tmpCurrentUser" Subject 0RR4S8S10S12S13S14S16S18S19S20S24S26S27S28S29S33S35S36S37S38S40S41S42S45S Document Library The Review Cycle has been cleared. 0RR4S6S tmpCurrentUser Status StatusListv 1S2S6S8S9S13S15S16S17S18S19S20S My Review is Complete tmpAction Complete 1S2S3S SaveOptions 0R1S2S3S GoToField causes any active embedded objects to de-activate 0RR1S 0R4S 0R7S12S4 tmpCurrentUser InProcess O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $ACTIONS OriginalSubject OriginalSubject OriginalSubject Subject 1S2S3S10S12S NewRespTitle New Response to " OriginalSubject 0R1S2S3S4S5S6S StandardTitle Response of " to " OriginalSubject 0R1S2S3S4S8S9S10S11S12S13S14S15S16S17S NewRespTitle StandardTitle 0R4S6S "MS Sans Serif Times New Roman Response @___@ <a>7`^ `!bb!R SubjectKey thought of this response Created by FromThe name of the person who composed the response DateThe date/time when the document was composed TimeCreated ExpireDate 1S2S The document and its responses will be archived on a schedule determined by the Archive Profile This document was marked expired on ExpireDate ExpireDateDisplay @___@ <a>7`^ `!bb!R BodyEnter the text of your response ------------------------------------------------------------------------------------------------------------------------------------------------- Hidden Fields: OriginalSubject OriginalSubject Subject 7S9S OriginalSubjectHidden field to store topic of Main Document Closes 0S0E _Edit Document Categori_zeb Send Docu_ment _Forward _Move to Folder... _Remove from Folder? O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $WindowTitle $$Script_O $$ScriptName TimeCreated $Body $ACTIONS New Document Subject 4S6S "MS Sans Serif Times New Roman Helvetica '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim FormW As NotesUIWorkspace Dim FormDoc As NotesUIDocument Document'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Set FormW = New NotesUIWorkspace Set FormDoc = FormW.CurrentDocument FormDoc.refresh End Sub DocumentWorkflow DocumentWorkflow Subform : This Subform includes the LotusScript, Actions, and hidden fields which are used in all versions of the Document form. Hidden Fields:------------------------------------------------------------------- DocumentAuthors 4S6S DocumentAuthors Scope Private Reviewers 3S4S6S7S8S10SDocumentReaders LastEditor Scope Private 1S2S Scope Public Scope 1S2S3S4S %12-/H !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA WC9iB.xC-iF8wH8jT>zR<rd? 2L3;FK=D j=C:FQ8Qp<b GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww Subject 0S0E SubjectRequired: description of this document Created By: FromDocument author name on DateThe date/time when the document was composed at TimeCreated Category Miscellaneous CategoriesPress ENTER for list of keywords or to add a new keyword ($All) 4S6S ExpireDate 1S2S The document and its responses will be archived on a schedule determined by the Archive Profile This document was marked expired on ExpireDate ExpireDateDisplay Status StatusListv 4S6S7S8S9S10S11S Review Cycle Information Status StatusListv 4S6S7S8S9S Paintbrush cann this file becaus created using a of Windows earl 3.0. Save As From Copy To Save Colors As Printing '%s' on on %s Page %d of % donelNot enoug to print. more application rease available Originator Previous reviewers Current Reviewers Future reviewers tmpOriginator PreviousReviewers PreviousReviewers CurrentReviewers CurrentReviewers FutureReviewers FutureReviewers Status StatusListv 4S6S7S8S9S Paintbrush cann this file becaus created using a of Windows earl 3.0. Save As From Copy To Save Colors As Printing '%s' on on %s Page %d of % donelNot enoug to print. more application rease available Originator Reviewers Review Options tmpOriginator_1 Reviewers Reviewers ReviewersEnter the reviewers' names (do not use Group names) ReviewStyle ReviewStyle Serial review | Serial.NoVersionsSerial (keep all revisions) | Serial.VersionsDocument reservations | Parallel.NoVersionsResponse review | Parallel.Versions ReviewWindow ReviewWindow No time limit for each review | NoLimitMove to next reviewer after: | MoveOnKeep sending reminders after: | Reminder ReviewTime ReviewTime ReviewWindow NoLimit day(s) 3S4S6S8S tmpReviewUnits NotifyAfter NotifyAfter Notify originator after each reviewer | EachNotify originator after final reviewer | Final BodyEnter the text (or a description) of the document. ........................... ReviewerLog 1S2S3S4S Reviewer Log ReviewerLog 1S2S ReviewerLog ReviewerLog Close 0S0E _Edit Document DocumentAuthors 9S15S Categori_ze_ _Forward _Move to Folder... _Remove from Folder Send Docu_ment O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $SubForms $WindowTitle $Script $$Script_O $$ScriptName $$Reviewers $Reviewers_O TimeCreated $Body $ACTIONS Times New Roman Task List &Switch To About Document Library @ @@ @` @ @@ @@@@@`@@ `@ `@@`@``@ What does this database do? A Document Library application is an electronic filing cabinet that stores reference documents for access by a workgroup. The database might contain anything from environmental impact statements for a group of engineers to financial statements for a group of loan officers. Who will use this database? Anyone who wishes to create a record of a document or review available documents may use this database. Important Features Review Cycle: Used to route a document to a series of recipients. Document Archiving: Used to move expired documents to an archive database. Suggestions for Modifications Full text search: If you wish to use Notes' full text search capabilities for a database created with this template, select menu File, Database, Properties, go to the Full Text panel and then select Create Index... to create the full text index. Where to find more information? - More information can be found by selecting Help, Using Database Access Control Very Important: Access level should be Author for all users of this database. This will prevent unauthorized editing of documents within the database. The Author fields within the forms govern who will be able to edit/review particular documents. Errors will occur if someone with Editor access attempts to review a document when they are not an authorized reviewer of that document. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $Info $Body Locked 1S2S3S DocumentAuthors CurrentReviewers 0R1S2S3S8S9S11S13S 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Comment $Formula $TYPE $Operation $Scan Archive Log Times New Roman ArchiveLog $MessageType %12-/H !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA WC9iB.xC-iF8wH8jT>zR<rd? 2L3;FK=Dj=C:FQ8Qp<b GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww Archive Log LogCount LogTotal for ArchiveDate ArchiveTrailer ArchiveTrailer Hidden: Archive Log for ArchiveDate 1S2S Subject (Archive) Categories Close 0S0E Categori_ze _Edit Document Send Docu_ment _Forward _Move to Folder... _Remove from Folder O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ DocLife $ManualArchivers_O ObsoleteLife DocumentLife $TITLE $Info $WindowTitle $$Script_O $$ScriptName ArchiveDate $Body $ACTIONS GOLAx Started running agent 'Mark/Unmark Document As Expired' on 07/20/96 02:03:32 PM Running on selected documents: 1 total Found 1 document(s) that match search criteria 1 document(s) were modified by formula Done running agent 'Mark/Unmark Document As Expired' on 07/20/96 02:03:39 PM '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub ProcessDocument '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim session As NotesSession Dim db As NotesDatabase Dim documents As NotesDocumentCollection Dim note As NotesDocument '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Set session = New NotesSession Set db = session.CurrentDatabase Set documents = db.UnprocessedDocuments Set note = documents.GetFirstDocument While Not (note Is Nothing) ProcessDocument Set note = documents.GetNextDocument(note) Wend End Sub '++LotusScript Development Environment:2:2:ProcessDocument:1:8 Sub ProcessDocument Dim ExpireError As String Dim dtNow As New NotesDateTime("") ExpireError = "This " & note.Form(0) & " cannot be marked as expired." 'is this document is protected from archiving, ignore it If note.HasItem("ProtectFromArchive") Then Exit Sub 'if this note does not have an ExpireDate value, set it to today If note.ExpireDate(0) = "" Then dtNow.SetNow note.ExpireDate = dtNow.LSLocalTime note.Save True,True Else Select Case Msgbox ("This document was marked expired on " & Cstr(note.ExpireDate(0)) & ". Would you like to unmark it?",36,"Expire Date") Case 6 note.RemoveItem "ExpireDate" note.Save True,True End Select End If End Sub O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex (ArchiveInstructions)(ArchiveInstructions)C CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################### ($Profiles)|($Profiles) PersonName" 1S2S $70PersonName$Conflict Profile L1S5S1! $70PersonName $70Type2 PersonName" 1S2S PersonNamePerson Name& Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################# 255D2116B7BDFECF1769F57E5917AA29Lotus Notes Archive ProfileArchiveProfileArchive ProfileCD CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################### (ProcessExistingDbDlg)DC CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################ _Archiving|Archiving Archive Logs Archive Profile 6S9S11S $75$74Subject$Conflict Archive L1S5S1( $75$74Subject Archive Logs Archive Profile 6S9S11S$74 SubjectDescription& CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################ K!Dp } (ArchiveProfileDlg)CD CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####### Periodic Archive 1SfL3 CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesj ####################################################### ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## Times New Roman (ArchiveInstructions) Archive Profile Help The Archive Profile allows you to specify which documents should be removed from the current database and stored in an archive database. This allows you to keep your discussion up-to-date with only the latest topics. You can choose the following in your ArchiveProfile: Archive expired documents Choose this option if you wish to archive documents which have been marked as expired. Indicate the number of days to wait before the expired documents are archived. Archive documents which have no activity Choose this option if you wish to archive documents which have had no activity. Indicate the number of days to wait before the inactive documents are archived. Generate an Archive Log each time an archive occurs Choose this option if you wish to have an Archive Log created when documents are archived. You can also indicate if you would like document links to the archived documents included in the Archive Log. Archive Profile Editors: Specify the names of those users that should be allowed to modify the Archive Profile. Specify Archive Location: Click on this button to specify the server and filename of the Archive database. The archive database is created for you based upon the values specified in the dialog box. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $$ScriptName $Body Delete 0S0E _Forward Categori_ze Edit Message Out Of the Office Out Of Office Profile _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Archive Profile Times New Roman '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub ProcessExistingArchiveDB Declare Sub ProcessNonExistingArchiveDB Declare Sub ProcessArchiveDbExists Declare Sub CreateNewArchiveDB '++LotusScript Development Environment:2:5:(Declarations):0:10 %INCLUDE "lsconst.lss" Dim s As NotesSession Dim w As NotesUIWorkspace Dim db As NotesDatabase Dim existingdb As NotesDatabase Dim archivedb As NotesDatabase Dim view As NotesView Dim note As NotesDocument Dim profile As NotesDocument Dim archivedoc As NotesDocument Dim doc As NotesUIDocument Dim DocWasSaved As Integer Dim DoNotClose As Variant Dim ExistingServer As String Dim ExistingPath As String '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:2:ProcessExistingArchiveDB:1:12 Sub ProcessExistingArchiveDB an existing archive already exists and the user has choosen to create a new one this function gets called on one of two occasions either the document has a value in the tmpArchivePath field or the user entered a server and path that has an existing database we need to handle both cases %END REM End Sub '++LotusScript Development Environment:2:2:ProcessNonExistingArchiveDB:1:8 Sub ProcessNonExistingArchiveDB On Error Goto ProcessError On Error 4005 Goto DbCreateError 'render the dialog box to get the location of the archive database If (w.DialogBox("(ArchiveProfileDlg)",True,True,"Specify New Location")) Then 'see if the archive database exists Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0)) If (archivedb.IsOpen) Then Msgbox "Database already exists. Enter a new location" ProcessNonExistingArchiveDB Else Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0)) archivedb.Title = db.Title & " (Archive)" End If Call doc.Reload Call doc.Refresh Else note.ArchiveServer = "" note.ArchivePath = "" End If Exit Sub DbCreateError: Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error") Case 6 ProcessNonExistingArchiveDb End Select Exit Sub ProcessError: Msgbox Error & " - (ProcessNonExistingArchiveDB)" Exit Sub End Sub '++LotusScript Development Environment:2:2:ProcessArchiveDbExists:1:8 Sub ProcessArchiveDbExists 'this function gets called if a database already exists in the tmpArchiveServer field 'render the dialog box to get the location of the archive database On Error 4005 Goto DbCreateError If (w.DialogBox("(ProcessExistingDbDlg)",True,True,"Specify New Location")) Then On Error Resume Next 'see if the archive database exists Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0)) If (archivedb.IsOpen) Then Msgbox "Database already exists. Enter a new location" ProcessArchiveDbExists Else Call CreateNewArchiveDB archivedb.Title = db.Title & " (Archive)" End If Call doc.reload Call doc.refresh End If Exit Sub DbCreateError: Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error") Case 6 ProcessNonExistingArchiveDb End Select Exit Sub End Sub '++LotusScript Development Environment:2:2:CreateNewArchiveDB:1:8 Sub CreateNewArchiveDB On Error 4005 Goto DbCreateError On Error Goto ProcessError 'first, create the archive database Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0)) 'if the profile says to copy new documents, then copy them now If (note.CopyOptions(0) = "1") Then Set allDocs = existingdb.AllDocuments For i = 1 To allDocs.Count Set archivedoc = allDocs.GetNthDocument(i) Call archivedoc.CopyToDatabase(archivedb) Next End If 'if the profile says we should delete the original archive database, then remove it If (note.DeleteOptions(0) = "1") Then Call existingdb.Remove Exit Sub DbCreateError: Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error") Case 6 ProcessNonExistingArchiveDb End Select Exit Sub ProcessError: Msgbox Error & " - (ProcessNonExistingArchiveDB)" Exit Sub End Sub Archive Profile'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant) Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) Declare Sub Postopen(Source As Notesuidocument) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Queryclose From Source Call Queryclose On Event Querysave From Source Call Querysave On Event Postopen From Source Call Postopen End Sub '++LotusScript Development Environment:2:2:Queryclose:1:12 Sub Queryclose(Source As Notesuidocument, Continue As Variant) If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub ItemList = profile.Items Forall n In ItemList profile.RemoveItem(n.Name) End Forall note.CopyAllItems profile profile.SaveOptions = "1" profile.save True, True End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) DocWasSaved = True DoNotClose = False If Not(profile Is Nothing) Then note.SaveOptions = "0" If (note.ArchivePath(0) = "") Then Msgbox "You will need to specify a location of the archive database before you can archive documents.",16 source.Reload source.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) 'initialize global variables Set note = source.Document Set w = New NotesUIWorkspace Set s = New NotesSession Set db = s.CurrentDatabase Set view = db.GetView("Archiving") Set doc = source 'turn off auto reload to make processing faster source.AutoReload = False 'if this is not a new doc, we don't need to continue If Not (source.IsNewDoc) Then Exit Sub 'get the existing profile key = "Archive Profile" Set profile = view.GetDocumentByKey(key,False) If profile Is Nothing Then 'an existing profile was not found note.ProtectFromArchive = 1 note.ExcludeFromView = "D" note.From = "Archiving" note.Subject = "Archive Profile" note.Categories = "(Archive)" Call note.ReplaceItemValue("_ViewIcon", 11) source.reload Else 'copy the profile fields to this document ItemList = note.Items Forall n In ItemList note.RemoveItem(n.Name) End Forall profile.CopyAllItems note source.Reload If source.EditMode Then source.Refresh End If DocWasSaved = False End Sub K ,` Archive Profile ArchiveExpired Archive Expired documents | Yes after ExpiredLife Number cannot be negative.{ 3S4S6S11SExpiredLife days ArchiveInactive Archive documents which have no activity | Yes after DocumentLife Number cannot be negative.{ 3S4S6S11SDocumentLife days ArchiveLog Generate an Archive Log each time an archive occurs | Yes IncludeDoclinks Include document links | Yes Archive Profile editors: ProfileEditors Archive Server: ArchivePath ArchiveServer Local ArchiveServer 3S4S9S10S12S14StmpArchiveServer Archive Path: ArchivePath tmpArchivePath Categori_zeK _Edit Document Send Docu_ment _Forward Close 0S0E Save Profile 0S0E Specify Archive Location'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) 'see if an archive database already exists based upon some field values If (Len(note.tmpArchivePath(0)) >0) Then If (note.tmpArchiveServer(0) = "Local") Then Fullpath$ = note.tmpArchivePath(0) ExistingServer = "" Else Fullpath$ = note.tmpArchiveServer(0) + "!!" + note.tmpArchivePath(0) ExistingServer = note.tmpArchiveServer(0) End If ExistingPath = note.tmpArchivePath(0) Set existingdb = New NotesDatabase(ExistingServer,ExistingPath) If (existingdb.IsOpen) Then Select Case Msgbox("The database (" + Fullpath$ + ") already exists. To create a new database, select OK, otherwise click Cancel",33,"Database already exists") Case IDOK: ProcessArchiveDBExists End Select Else ProcessNonExistingArchiveDB End If Else ProcessNonExistingArchiveDB End If End Sub InstructionsF (ArchiveInstructions) 2S4S _Move to Folder... _Remove from FolderK O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 2&g=/ DocLife ArchiveDate ObsoleteLife $ManualArchivers_O $TITLE $Info $WindowTitle $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O ExpiredLife DocumentLife $Body $ACTIONS $SCRIPTOBJ_6 (ProcessExistingDbDlg)'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Postopen(Source As Notesuidocument) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) source.RefreshHideFormulas End Sub DeleteOptions Delete the original database|1 Documents are archived: ArchiveLocation Local 1S2S Archive database is on server: Archive file: Local ArchiveLocation Locally | LocalOn Server | Server 0S0E ArchiveServer ArchiveLocation Local ArchiveServer ArchiveServer 4RS4E6R7S8S10RS4E12R13S14S16RS4E20S23R ArchiveServer CurrentPath 1S2S6S CurrentFile CurrentPath 0R1S2S6S FileOnly CurrentPath CurrentFile Macintosh CurrentPath CurrentFile CurrentPath CurrentFile CurrentFile 0R1S2S8S11S15S18S19S20S21S22S26S29S33S36S37S38S39S40S44S47S51S54S DirOnly CurrentPath CurrentFile Macintosh CurrentPath CurrentFile CurrentPath CurrentFile 0R1S2S8S11S15S17S18S20S21S22S23S24S28S31S35S37S38S40S41S42S43S44S48S51S55S57S58S60S DirOnly FileOnly" CurrentPath 0RR1S2S5S6S8S10S11S15S ArchivePath Please specify the filename of the archive database 3S4S6S11SArchivePath After creating the new archive db: servers names.nsf ($ServersLookup) 1S2S selectedserver Server Please select a server to create your archive database on. ArchiveServer servers 0R1S2S ArchiveServer selectedServer 0R1S2S3S ?_?__ `!b`1 7`^///? ?b___ `bOOO `<b!R @If(@IsN CopyOptions Copy documents from the original archive to the new one|1 O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body _Forward Categori_zeK Edit Document _Move to Folder... _Remove from Folder... Setup Archive...L ArchiveProfile Server 1S2S6S 0R1S2S6S Server 0R7S8S11S13S14S15S16S Archive NowK Archive Profile 1S2S AllDocs NoCache ($Profiles) ArchivePath 0R1S2S8S10S12S14S AllDocs Error You must specify a location for the archive database 0R3S4S5S6S14S15S AllDocs2 NoCache ($Profiles) ArchivePath Archive Now Before you can begin archiving documents you need to fill out an Archive Profile. Please press "Setup Archive...". 0RR1S2S12S14S16S18S28S30S34S Archiving Are you sure you want to move documents to the archive database now? 0R6S8S11S13S AlreadyArchived MailArchived| Archiving Since this is the first time you have requested an archive, it may take several minutes. Do you want to proceed? Archiving No documents were archived 0RR1S2S8S9S11S13S19S21S24S26S32S34S MailArchived 0RR1S2S3S Periodic Archive 0R4S Server 1S2S6S 0R1S2S6S Server 0R7S8S11S13S14S15S16S Enable Scheduled Archivingf AllDocs Archiving Archive Profile Archive Now Before you can begin archiving documents you need to fill out an Archive Profile. Please press "Setup Archive...". 1S2S10S12S14S16S20S26S28S32S Periodic Archive 0RR4S Server 1S2S6S 0R1S2S6S Periodic Archive Server 0R4S5R12S13S16S18S19S20S21S Disable Scheduled ArchivingKf AllDocs Archiving Archive Profile Archive Now Before you can begin archiving documents you need to fill out an Archive Profile. Please press "Setup Archive...". 1S2S10S12S14S16S20S26S28S32S Periodic Archive 0RR4S Server 1S2S6S 0R1S2S6S Periodic Archive Server 0R7S8R15S16S19S21S22S23S24S Open Archive Db...'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim s As NotesSession Dim w As NotesUIWorkspace Dim sourcedb As NotesDatabase Dim view As NotesView Dim profile As NotesDocument Dim server As String '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) On Error Goto ErrorRoutine '91 is Object Variable Not Set On Error 91 Resume Next '4412 is the notes database does not exist On Error 4412 Goto DatabaseNotExistError Set s = New NotesSession Set sourcedb = s.CurrentDatabase Set view = sourcedb.GetView("($Profiles)") key = "Archive Profile" Set profile = view.GetDocumentByKey(key) If profile Is Nothing Then Messagebox "There is no Archive Db for this database.", 0 + 64, "Archive" Exit Sub End If ArchivePath = profile.ArchivePath ArchiveServer = profile.ArchiveServer If (ArchivePath(0) = "") Then Messagebox "The archive database cannot be found. Click on the Setup Archive button to create a new archive database.",16,"Database not found" Exit Sub End If Set w = New NotesUIWorkspace Call w.OpenDatabase(ArchiveServer(0), ArchivePath(0), "", "", "1") Exit Sub ErrorRoutine: Messagebox "Unexpected condition: " & Err & " - " & Error Exit Sub DatabaseNotExistError: Messagebox "The archive database cannot be found. Click on the Setup Archive button to create a new archive database.",16,"Database not found" Exit Sub End Sub O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS $SCRIPTOBJ_10 $ViewGlobalScript_O (ArchiveProfileDlg) Local ArchiveLocation Locally | LocalOn Server | Server ArchiveLocation Local 1S2S 0S0E ArchiveServer ArchiveLocation Local ArchiveServer ArchiveServer 4RS4E6R7S8S10RS4E12R13S14S16RS4E20S23R ArchiveServer CurrentPath 1S2S6S CurrentFile CurrentPath 0R1S2S6S FileOnly CurrentPath CurrentFile Macintosh CurrentPath CurrentFile CurrentPath CurrentFile CurrentFile 0R1S2S8S11S15S19S20S21S22S26S29S33S36S37S38S39S40S44S47S51S54S DirOnly CurrentPath Macintosh CurrentFile CurrentFile CurrentFile Macintosh CurrentPath CurrentFile CurrentPath CurrentFile 0R1S2S8S11S14S15S16S21S23S2E24S27S28S34S36S37S39S43S45S46S49S50S51S52S53S57S60S64S66S67S69S70S71S72S73S77S80S84S86S87S89S dftvalue DirOnly FileOnly" CurrentPath 0RR1S2S3S4S7S8S10S12S13S17S Macintosh dftvalue dftvalue dftvalue dftvalue dftvalue 0R3S4S5S6S21S22S23S24S25S26S ArchivePath Please specify the filename of the archive database 3S4S6S11SArchivePath Documents are archived: Archive database is on server: Archive file: servers names.nsf ($ServersLookup) 1S2S selectedserver Server Please select a server to create your archive database on. ArchiveServer servers 0R1S2S ArchiveServer selectedServer 0R1S2S3S ?_?__ `!b`1 7`^///? ?b___ `bOOO `<b!R @If(@IsN O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $$ScriptName $Body '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub Terminate Declare Sub Main Declare Sub GetProfileSettings Declare Sub CreateLogDocument Declare Sub ProcessDocuments Declare Sub EvaluateDocument Declare Sub ArchiveDocument Declare Sub FixReaderNames Declare Sub AddDocumentToLog Declare Sub CloseLogDocument Declare Sub MarkLogDocuments '++LotusScript Development Environment:2:5:(Declarations):0:10 '%INCLUDE "lserr.lss" '%INCLUDE "lsxbeerr.lss" Const MAXARCHIVEITEMS = 50 Dim session As NotesSession Dim dbSource As NotesDatabase Dim dbArchive As NotesDatabase Dim docSource As NotesDocument Dim docArchive As NotesDocument Dim docLog As NotesDocument Dim docProfile As NotesDocument Dim viewArchive As NotesView Dim dtNow As NotesDateTime Dim dtExpired As NotesDateTime Dim dtDocument As NotesDateTime Dim dtCompare As NotesDateTime Dim docsCollection As NotesDocumentCollection Dim rtitem As NotesRichTextItem Dim item As NotesItem Dim nidArray() As String Dim SourcePath As String Dim SourceServer As String Dim ArchiveServer As String Dim ArchivePath As String Dim ArchiveLog As String Dim IncludeDocLinks As String Dim ArchiveExpired As String Dim ArchiveInactive As String Dim ExpiredLife As Integer Dim DocumentLife As Integer Dim nLogItems As Integer Dim numDocs As Integer Dim numDocsArchived As Integer Dim i As Integer Dim DoNotRun As Variant Dim DocCanBeArchived As Variant '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize 'initialize some variables Set session = New NotesSession Set dbSource = session.CurrentDatabase Redim nidArray(5) nLogItems = 0 numDocsArchived = 0 'call the main entry point Main End Sub '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate End Sub '++LotusScript Development Environment:2:2:Main:1:8 Sub Main 'Read the profile document to see what options are enabled and where databases are located GetProfileSettings If DoNotRun Then Exit Sub 'setup the date/time structures Set dtNow = New NotesDateTime("") Set dtExpired = New NotesDateTime("") Set dtDocument = New NotesDateTime("") Set dtCompare = New NotesDateTime("") dtNow.SetNow dtExpired.SetNow dtDocument.SetNow dtCompare.SetNow If ArchiveExpired = "Yes" Then dtExpired.AdjustDay(ExpiredLife * -1) If ArchiveInactive = "Yes" Then dtDocument.AdjustDay(DocumentLife * -1) 'open the archive database Set dbArchive = New NotesDatabase(ArchiveServer,ArchivePath) If Not (dbArchive.IsOpen) Then Messagebox "Unable to open archive database.",16,"Error" Exit Sub End If 'see if we are logging documents, if we are, then create the first one If ArchiveLog = "Yes" Then CreateLogDocument 'process the documents in the database 'this finds all documents that needs to be archived, archives them, logs them (if necessary), and removes them from this database ProcessDocuments 'mark the log documents in terms of x out of y If ArchiveLog = "Yes" Then MarkLogDocuments End Sub '++LotusScript Development Environment:2:2:GetProfileSettings:1:8 Sub GetProfileSettings 'reads the profile document Set view = dbSource.GetView("Archiving") key = "Archive Profile" Set docProfile = view.GetDocumentByKey(key,False) If docProfile Is Nothing Then 'there is no profile document so exit DoNotRun = True Elseif docProfile.ArchivePath(0) = "" Then 'there is no archive database Msgbox "You need to specify a location for the archive database.",16,"Error" DoNotRun = True Else DoNotRun = False ArchiveExpired = docProfile.ArchiveExpired(0) ArchiveInactive = docProfile.ArchiveInactive(0) DocumentLife = docProfile.DocumentLife(0) ExpiredLife = docProfile.ExpiredLife(0) ArchiveServer = docProfile.ArchiveServer(0) ArchivePath = docProfile.ArchivePath(0) ArchiveLog = docProfile.ArchiveLog(0) IncludeDocLinks = docProfile.IncludeDocLinks(0) End If End Sub '++LotusScript Development Environment:2:2:CreateLogDocument:1:8 Sub CreateLogDocument 'creates a new log document, incrementing the counter Set docLog = New NotesDocument(dbSource) Set rtitem = New NotesRichTextItem(docLog, "Body") docLog.Form = "Archive Log" dtNow.SetNow docLog.ArchiveDate = dtNow.LSLocalTime docLog.ProtectFromArchive = 1 docLog.ExcludeFromView = "D" docLog.From = "Archiving" docLog.Categories = "(Archive)" docLog.ReplaceItemValue "_ViewIcon", 22 nLogItems = nLogItems + 1 'see if we need to redim the array If nLogItems Mod 6 = 0 Then Redim Preserve nidArray(nLogItems + 4) End Sub '++LotusScript Development Environment:2:2:ProcessDocuments:1:8 Sub ProcessDocuments 'get a handle to all of the documents in the database Set docsCollection = dbSource.AllDocuments numDocs = docsCollection.Count For i =1 To numDocs Set docSource = docsCollection.GetNthDocument(i) 'see if this document can be archived EvaluateDocument If DocCanBeArchived Then 'archive this document ArchiveDocument If ArchiveLog = "Yes" Then AddDocumentToLog docSource.Remove True End If 'see if we have hit the maximum number of entries in a log document; if so close the existing one and create a new one If (numDocsArchived Mod MAXARCHIVEITEMS = 0) And (numDocsArchived > 0) Then If ArchiveLog = "Yes" Then CloseLogDocument CreateLogDocument End If End If Next 'we are done processing all of the documents, close the last log document (if necessary) If ArchiveLog = "Yes" Then CloseLogDocument End Sub '++LotusScript Development Environment:2:2:EvaluateDocument:1:8 Sub EvaluateDocument 'checks to see if a document should be archived or not DocCanBeArchived = False 'see if this document is protected from archiving If docSource.HasItem("ProtectFromArchive") Then If docSource.ProtectFromArchive(0) = 1 Then Exit Sub End If 'look for a $NoPurge item; if it is a date, compare it to today; If (docSource.HasItem("$NoPurge")) Then Set Purge = docSource.GetFirstItem("$NoPurge") If (Purge.Type = DATETIMES) Then Set enddt = New NotesDateTime("") Set enddt = Purge.DateTimeValue Set nowdt = New NotesDateTime("") nowdt.SetNow If enddt.TimeDifference(nowdt) >= 0 Then Exit Sub Else Exit Sub End If End If 'see if we should archive documents that expire If ArchiveExpired = "Yes" Then If docSource.HasItem("ExpireDate") Then Set item = docSource.GetFirstItem("ExpireDate") Set dtCompare = item.DateTimeValue If dtCompare Is Nothing Then Set dtCompare = New NotesDateTime("") dtCompare.SetNow Else If dtExpired.TimeDifference(dtCompare) >= 0 Then DocCanBeArchived = True Exit Sub ' we exit here so that we don't archive this document again End If End If End If End If 'see if we should archive documents that are inactive If ArchiveInactive = "Yes" Then dtCompare.LSLocalTime = docSource.LastAccessed If dtDocument.TimeDifference(dtCompare) >= 0 Then DocCanBeArchived = True End If End Sub '++LotusScript Development Environment:2:2:ArchiveDocument:1:8 Sub ArchiveDocument 'copies the source document into the archive database $Archived and DateArchived might already be present, if this agent failed the last time it was run. None of these fields should be on the archived copy, because we don't want the archive database to inadvertantly archive these documents (it can archive, but it needs to use its own criteria) %END REM If docSource.HasItem("$Archived") Then docSource.RemoveItem("$Archived") If docSource.HasItem("DateArchived") Then docSource.RemoveItem("DateArchived") If docSource.HasItem("ExpireDate") Then docSource.RemoveItem("ExpireDate") FixReaderNames docSource.Save True, True Set docArchive = docSource.CopyToDatabase(dbArchive) docSource.DateArchived = dtNow.LSLocalTime Call docSource.AppendItemValue("$Archived", True) docSource.Save True, True numDocsArchived = numDocsArchived + 1 End Sub '++LotusScript Development Environment:2:2:FixReaderNames:1:8 Sub FixReaderNames 'if the reader access fields are blank, remove them If docSource.HasItem("Readers") Then If docSource.Readers(0) = "" Then docSource.RemoveItem("Readers") End If If docSource.HasItem("DocumentReaders") Then If docSource.DocumentReaders(0) = "" Then docSource.RemoveItem("DocumentReaders") End If End Sub '++LotusScript Development Environment:2:2:AddDocumentToLog:1:8 Sub AddDocumentToLog 'only called if a document was archived and logging was enabled If IncludeDocLinks = "Yes" Then 'the user wants a doclink to the new archived document Call rtitem.AppendDocLink(docArchive, "DocLink to " & docSource.Subject(0)) Call rtitem.AddTab(1) End If Call rtitem.AppendText(" " & docSource.Subject(0) & " (created by " & docSource.From(0) & " on " &_ Format(docSource.Created, "Short Date") & ")") Call rtitem.AddNewLine(2) End Sub '++LotusScript Development Environment:2:2:CloseLogDocument:1:8 Sub CloseLogDocument 'saves the log document, adds the note id to the array, docLog.Save True, True nidArray(nLogItems) = docLog.NoteID End Sub '++LotusScript Development Environment:2:2:MarkLogDocuments:1:8 Sub MarkLogDocuments 'finds all of the log documents just created and marks them in terms of x out of y For i = 1 To nLogItems Set docLog = dbSource.GetDocumentByID(nidArray(i)) If Not (docLog Is Nothing) Then docLog.Subject = "Log Document " &Cstr(i) & " of " & Cstr(nLogItems) & " (" & Format(docLog.Created, "General Date") & ")" docLog.LogCount = Cstr(i) docLog.LogTotal = Cstr(nLogItems) docLog.ArchiveTrailer = "Archive log " & Cstr(i) & "of " & Cstr(nLogItems) & " for documents on server " & _ ArchiveServer & " from " & dbSource.Title & " (" & dbSource.FilePath & ") to " & dbArchive.Title & _ " (" & ArchivePath & ") completed sucessfully on " & _ Format(dtNow.LSLocalTime, "Short Date") & " at " & _ Format(dtNow.LSLocalTime, "Long Time") & _ ". Expired documents are archived after " & ExpiredLife & _ " days. All other documents are archived after " & DocumentLife & " days of inactivity." docLog.Save True,True Call docLog.CopyToDatabase(dbArchive) End If Next End Sub O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex rchiveManager 10/11/95 08:31:58 AM Lotus Notes updated [-Default-] 09/29/95 12:06:40 PM Catherine Duffy/Iris updated [OtherDomainServers] 09/29/95 12:06:32 PM Catherine Duffy/Iris updated LocalDomainServers 09/29/95 08:07:25 AM Lotus Notes updated -Default- 09/28/95 05:01:12 PM Lotus Notes updated [OtherDomainServers] 09/28/95 05:01:04 PM Lotus Notes updated [OtherDomainServers] 09/28/95 10:56:54 AM Catherine Duffy/Iris deleted role ArchiveManager 09/01/95 04:09:45 PM Lotus Notes updated [LocalDomainServers] 09/01/95 04:09:38 PM Lotus Notes updated [OtherDomainServers] 09/01/95 04:09:30 PM Lotus Notes updated LocalDomainServers 09/01/95 04:09:23 PM Lotus Notes added LocalDomainServers 09/01/95 04:09:23 PM Lotus Notes added [OtherDomainServers] 09/01/95 04:09:23 PM Lotus Notes added [LocalDomainServers] 09/01/95 04:09:23 PM Lotus Notes added [-Default-] 09/01/95 04:08:35 PM Lotus Notes deleted [OtherDomainServers] 09/01/95 04:08:32 PM Lotus Notes deleted [LocalDomainServers] 09/01/95 04:08:30 PM Lotus Notes deleted LocalDomainServers 09/01/95 04:08:29 PM Lotus Notes updated [LocalDomainServers] 09/01/95 04:08:24 PM Lotus Notes updated LocalDomainServers 09/01/95 04:08:19 PM Lotus Notes updated [OtherDomainServers] -Default- [-Default-] [LocalDomainServers] [OtherDomainServers] LocalDomainServers